home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / misc / flexcat1_3.lha / flexcat / E21b.sd < prev    next >
Encoding:
Text File  |  1994-06-21  |  1.5 KB  |  70 lines
  1. ##stringtype E
  2. ##shortstrings
  3. /****************************************************************
  4.    This file was created automatically by `FlexCat V1.3'
  5.    Do not edit by hand!
  6. ****************************************************************/
  7.  
  8.  
  9.     /* External modules */
  10. MODULE 'locale' , 'libraries/locale'
  11. MODULE 'utility/tagitem'
  12.  
  13.     /* Object definitions */
  14. OBJECT fc_type
  15.     id    :    LONG
  16.     str    :    LONG
  17. ENDOBJECT
  18.  
  19.     /* Global variables */
  20. DEF catalog_%b : PTR TO catalog
  21. DEF %i : fc_type
  22.  
  23.  
  24.     /* Opening catalog procedure */
  25. PROC open_%b_catalog( loc : PTR TO locale , language : PTR TO CHAR )
  26.  
  27.     DEF tag , tagarg
  28.  
  29.     %i.id := %d ; %i.str := %s
  30.  
  31.     close_%b_catalog()
  32.  
  33.     IF (localebase AND (catalog_%b = NIL))
  34.  
  35.         IF language
  36.  
  37.             tag := OC_LANGUAGE
  38.             tagarg := language
  39.  
  40.         ELSE
  41.  
  42.             tag:= TAG_IGNORE
  43.  
  44.         ENDIF
  45.  
  46.         catalog_%b := OpenCatalogA( loc , '%b.catalog' ,
  47.                                     [    OC_BUILTINLANGUAGE , %l ,
  48.                                         tag , tagarg ,
  49.                                         OC_VERSION , %v ,
  50.                                         TAG_DONE    ])
  51.  
  52.     ENDIF
  53.  
  54. ENDPROC
  55.     
  56.     /* Closing catalog procedure */
  57. PROC close_%b_catalog()
  58.  
  59.     IF localebase THEN CloseCatalog( catalog_%b )
  60.     catalog_%b := NIL
  61.  
  62. ENDPROC
  63.  
  64.  
  65.     /* Procedure which returns the correct string according to the catalog */
  66. PROC get_%b_string( fcstr : PTR TO fc_type ) RETURN IF catalog_%b THEN GetCatalogStr( catalog_%b , fcstr.id , fcstr.str ) ELSE fcstr.str
  67. /****************************************************************
  68.    End of the automatically created part!
  69. ****************************************************************/
  70.